;; stop looper
(define-macro (:| tag . args)
(let ((tagtime (string->symbol (string-append (symbol->string tag) "_tagtime"))))
(if (defined? tag)
(begin (callback (+ (now) *second*) eval `(define ,tag #f) (interaction-environment))
`(rmap-loop-runner ,tag ,tagtime stop ,@args)))))